﻿Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If My.Settings.mari0versie = "0.0" Then
            My.Computer.Network.DownloadFile("http://newauroradev.heliohost.org/evo/DevIL.dll", "C:\Games\mari0\DevIL.dll", "", "", True, "50000", False)
            My.Computer.Network.DownloadFile("http://newauroradev.heliohost.org/evo/OpenAL32.dll", "C:\Games\mari0/OpenAL32.dll", "", "", True, "50000", False)
            My.Computer.Network.DownloadFile("http://newauroradev.heliohost.org/evo/mari0_1.6.exe", "C:\Games\mari0\mari0_1.6.exe", "", "", True, "50000", False)
            My.Computer.Network.DownloadFile("http://newauroradev.heliohost.org/evo/SDL.dll", "C:\Games\mari0\SDL.dll", "", "", True, "50000", False)
            MsgBox("Klaar (installed Mari0 1.6 From offical download center at heliohost on pc " & My.Computer.Name & "(Log-main)")
            My.Settings.mari0versie = "1.6"
        Else
            MsgBox("mari0 versie:" & My.Settings.mari0versie & " is al geinstalleerd volgens onze logbestanden")
        End If
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        System.Diagnostics.Process.Start("C:\Games\mari0\mari0_1.6.exe")

    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs)
        My.Settings.mari0versie = "1.6"
    End Sub

    Private Sub Button4_Click_1(sender As Object, e As EventArgs) Handles Button4.Click
        My.Computer.Network.DownloadFile("http://newauroradev.heliohost.org/evo/void64/VOID_46.exe", "C:\Games\void46\VOID_46.exe", "", "", True, "50000", False)
    End Sub

    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        System.Diagnostics.Process.Start("C:\Games\void46\VOID_46.exe")
    End Sub
End Class
